Apple II Magazines (DO)

home *** CD-ROM | disk | FTP | other *** search

/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side B).do / SPELLING.bas < prev next >

Wrap

BASIC Source File | 1996-12-24 | 14KB | 438 lines

1 D$ = CHR$(4) 2 ONERR GOTO 3000 5 REM PROGRAM FOR MYSTERY WORD SPELLING 8 DIM S$(100) 10 HGR : HCOLOR= 7 12 PRINT : PRINT : PRINT 15 GOTO 320 92 C = LEN(A$) 100 FOR B = 1 TO LEN(A$) 102 R1$ = RIGHT$(A$,C) 106 C = C -1 110 Z$ = LEFT$(R1$,1) 145 RESTORE 150 READ X$,A 160 DATA "A",1,"B",2,"C",3,"D",4,"E",5,"F",6 170 DATA "G",7,"H",8,"I",9,"J",10,"K",11,"L",12,"M",13 180 DATA "N",14,"O",15,"Q",16,"P",17,"R",18,"S",19 190 DATA "T",20,"U",21,"V",22,"W",23,"X",24,"Y",25,"Z",26 195 DATA "'",27,"-",28, ".",29," ",30 220 IF X$ = Z$ THEN 250 225 IF Z$ = " " THEN 275 230 GOTO 150 250 REM SUB FOR LETTERS 270 ON A GOSUB 1000,1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1120,1130,1140,1150,1160,1170,1180,1190,1200,1210,1220,1230,1240,1250,1317,1319,1321 275 X = X +26 280 NEXT B 300 RETURN 320 B$ = "MYSTERY" 325 C$ = "WORD" 326 F$ = "SPELING" 327 E$ = "SPELLING" 328 G$ = "DO NOT" 329 H$ = "BREAK" 330 I$ = "THE ICE" 340 X = 26:Y = 30 350 A$ = B$ 355 GOSUB 92 356 X = 26:Y = 70 357 FOR P = 1 TO 7: HCOLOR= 3: GOSUB 1400 358 FOR PA = 1 TO 200: NEXT PA 359 HCOLOR= 0: GOSUB 1400:X = X +26: NEXT P 360 Y = 60:X = 78: HCOLOR= 7 370 A$ = C$ 375 GOSUB 92 376 X = 78:Y = 100 377 FOR P = 1 TO 4: HCOLOR= 3: GOSUB 1400 378 FOR PA = 1 TO 200: NEXT PA 379 HCOLOR= 0: GOSUB 1400:X = X +26: NEXT P 380 Y = 90:X = 26: HCOLOR= 7 385 A$ = F$ 390 GOSUB 92 391 X = 26:Y = 130 392 FOR P = 1 TO 5: HCOLOR= 3: GOSUB 1400 393 FOR PA = 1 TO 200: NEXT PA 394 HCOLOR= 0: GOSUB 1400:X = X +26: NEXT P 395 FOR P = 1 TO 2: HCOLOR= 3:X = 104: GOSUB 1400: FOR PA = 1 TO 200: NEXT PA: HCOLOR= 0: GOSUB 1400 396 HCOLOR= 3:X = 130: GOSUB 1400: FOR PA = 1 TO 200: NEXT PA: HCOLOR= 0: GOSUB 1400: NEXT P 397 HCOLOR= 0:X = 26:Y = 90:A$ = F$: GOSUB 92 398 HCOLOR= 7:X = 26:Y = 90:A$ = E$: GOSUB 92 399 FOR P = 1 TO 2000: NEXT P 400 REM 2ND PAGE INTRO 405 HGR : HCOLOR= 3:X = 52:Y = 30:A$ = G$: GOSUB 92 410 GOSUB 1600: GOSUB 1325: GOSUB 1700 420 FOR P = 1 TO 1000: NEXT P 422 HCOLOR= 3 425 X = 52:Y = 60:A$ = H$: GOSUB 92 430 X = 0:Y = 118 432 FOR P = 1 TO 44 434 HCOLOR= 7: GOSUB 1400 435 HCOLOR= 0: GOSUB 1400 436 X = X +5: NEXT P 440 HCOLOR= 0: GOSUB 1702 442 HCOLOR= 2:X = 240:Y = 60: GOSUB 1705 444 FOR P = 1 TO 1000: NEXT P 446 HCOLOR= 3:X = 52:Y = 90:A$ = I$: GOSUB 92 448 HCOLOR= 0:X = 240:Y = 60: GOSUB 1705 450 GOSUB 1700 452 FOR P = 1 TO 200: NEXT P 454 GOSUB 1350 456 FOR P = 1 TO 2000: NEXT P 458 GOTO 2500 500 REM SPELLING ROUTINE 504 GOSUB 550 505 GOTO 565 510 PRINT "TYPE A LETTER "; 511 INPUT W$ 512 IF LEN(W$) >1 THEN 510 513 IF W$ = "" THEN 510 514 IF W$ = "," OR W$ = "?" THEN 510 515 IF W$ = ":" OR W$ = "=" OR W$ = ";" THEN 510 516 IF W$ = "/" THEN 510 517 IF W$ = "7" THEN W$ = "'" 518 PRINT : PRINT : PRINT 520 GOSUB 550 522 GOTO 602 550 C1 = LEN(S$(Z)) 552 D = INT((10 -C1)/2) 555 IF D = 0 THEN X = 0 556 IF D = 1 THEN X = 26 558 IF D = 2 THEN X = 52 560 IF D = >3 THEN X = 78 561 Y = 30 562 RETURN 565 REM PRINT DASHED LINE 567 HGR : HCOLOR= 2 570 X1 = X:Y = 35 575 FOR L = 1 TO LEN(S$(Z)): HCOLOR= 2 585 REM ASSIGN EACH LETTER 587 B$ = S$(Z) 589 K$ = RIGHT$(B$,C1) 590 L$(L) = LEFT$(K$,1) 591 IF L$(L) = " " THEN R = 1: HCOLOR= 0 592 HPLOT X1,Y TO X1 +20,Y:X1 = X1 +26 593 L$(L) = LEFT$(K$,1) 595 C1 = C1 -1 597 NEXT L 598 GOSUB 1325 601 GOTO 510 602 IF W$ = L$(1) THEN X = X +0: GOSUB 650 604 IF W$ = L$(2) THEN X = X +26: GOSUB 650 606 IF W$ = L$(3) THEN X = X +52: GOSUB 650 608 IF W$ = L$(4) THEN X = X +78: GOSUB 650 610 IF W$ = L$(5) THEN X = X +104: GOSUB 650 612 IF W$ = L$(6) THEN X = X +130: GOSUB 650 614 IF W$ = L$(7) THEN X = X +156: GOSUB 650 616 IF W$ = L$(8) THEN X = X +182: GOSUB 650 618 IF W$ = L$(9) THEN X = X +208: GOSUB 650 620 IF W$ = L$(10) THEN X = X +234: GOSUB 650 622 IF R > = C1 THEN 780 624 IF W = 0 THEN PRINT "WRONG": GOSUB 800 626 PRINT : PRINT : PRINT :W = 0 630 GOTO 510 650 REM PRINT LETTER 652 HCOLOR= 6 655 A$ = W$ 656 GOSUB 92 657 GOSUB 550 660 R = R +1:W = W +1 662 RETURN 700 REM SEE ALL WORDS 705 Y = 60 710 FOR Z = 1 TO I 715 HGR : HCOLOR= 3 720 GOSUB 550 725 A$ = S$(Z) 730 GOSUB 92 735 FOR PA = 1 TO 3000: NEXT PA 740 NEXT Z 745 GOTO 2700 750 REM SELECT WORDS FROM LIST 755 N = 0:K = INT(I/4) 760 M = K: IF K = 0 THEN M = 4 761 IF K = -1 THEN M = 3 762 IF K = -2 THEN M = 2 763 IF K = -3 THEN M = 1 765 IF M >I THEN K = K -1: GOTO 760 770 IF N = I THEN GOTO 2700 771 FOR Z = 1 TO 10:L$(Z) = " ": NEXT Z 775 Z = M:M = M +4:N = N +1:R = 0: GOTO 500 780 REM RIGHT ANS ROUT. 781 HCOLOR= 6:A$ = S$(Z): GOSUB 550: GOSUB 92 782 X = 240:Y = 118: HCOLOR= 0: GOSUB 804 783 P = INT( RND(1) *2 +1): ON P GOTO 784,790 784 X = 0:Y = 118 786 FOR P = 1 TO 30 787 HCOLOR= 7: GOSUB 1400: HCOLOR= 0: GOSUB 1400 788 X = X +8: NEXT P 789 W1 = 0: GOTO 765 790 FOR P1 = 1 TO 20 791 HCOLOR= 2: GOSUB 1705 792 HCOLOR= 0: GOSUB 1705 793 X = X -8: NEXT P1 794 W1 = 0: GOTO 765 800 REM WRONG ROUTINE 802 W1 = W1 +1:X = 240:Y = 118: HCOLOR= 2 804 IF W1 > = 1 THEN GOSUB 1500 805 IF W1 > = 2 THEN GOSUB 1509 806 IF W1 > = 3 THEN GOSUB 1530 807 IF W1 > = 4 THEN GOSUB 1550 808 IF W1 > = 5 THEN GOSUB 1560 809 IF W1 > = 6 THEN GOSUB 1570 810 IF W1 > = 7 THEN GOSUB 1580 815 PRINT : PRINT : PRINT 820 IF W1 > = 7 THEN GOSUB 1350 822 IF W1 > = 7 THEN 900 824 IF R > = C1 THEN RETURN 828 Y = 80 830 ON W1 GOSUB 840,841,842,843,844,845 835 A$ = W$: GOSUB 92 837 RETURN 840 X = 0: RETURN 841 X = 26: RETURN 842 X = 52: RETURN 843 X = 78: RETURN 844 X = 104: RETURN 845 X = 130: RETURN 900 REM SPELL WORD 902 HCOLOR= 3: GOSUB 550 904 A$ = S$(Z): GOSUB 92 910 FOR P = 1 TO 5000: NEXT P 912 W1 = 0 915 GOTO 765 1000 REM A 1002 HPLOT X,Y TO X +10,Y -20 TO X +20,Y 1004 HPLOT X +5,Y -7 TO X +15,Y -7 1006 RETURN 1010 REM B 1012 HPLOT X,Y TO X,Y -20 TO X +18,Y -20 1014 HPLOT TO X +20,Y -17 TO X +20,Y -13 1015 HPLOT TO X +18,Y -10 TO X,Y -10 1017 HPLOT X,Y TO X +18,Y TO X +20,Y -3 TO X +20,Y -7 TO X +18,Y -10 1019 RETURN 1020 REM C 1021 HPLOT X +20,Y -6 TO X +20,Y -3 TO X +16,Y TO X +4,Y 1023 HPLOT TO X,Y -3 TO X,Y -17 TO X +4,Y -20 1025 HPLOT TO X +16,Y -20 TO X +20,Y -17 TO X +20,Y -14 1029 RETURN 1030 REM D 1032 HPLOT X,Y TO X,Y -20 TO X +18,Y -20 TO X +20,Y -17 TO X +20,Y -3 TO X +18,Y TO X,Y 1039 RETURN 1040 REM E 1042 HPLOT X +20,Y TO X,Y TO X,Y -20 TO X +20,Y -20 1044 HPLOT X,Y -10 TO X +10,Y -10 1048 RETURN 1050 REM F 1052 HPLOT X,Y TO X,Y -20 TO X +20,Y -20 1054 HPLOT X,Y -10 TO X +10,Y -10 1058 RETURN 1060 REM G 1062 HPLOT X +12,Y -6 TO X +20,Y -6 1064 HPLOT TO X +20,Y -3 TO X +16,Y TO X +4,Y 1065 HPLOT TO X,Y -3 TO X,Y -17 TO X +4,Y -20 1067 HPLOT TO X +16,Y -20 TO X +20,Y -17 TO X +20,Y -14 1069 RETURN 1070 REM H 1072 HPLOT X,Y TO X,Y -20 1074 HPLOT X,Y -10 TO X +20,Y -10 1076 HPLOT X +20,Y TO X +20,Y -20 1078 RETURN 1080 REM I 1082 HPLOT X +10,Y TO X +10,Y -20 1084 HPLOT X +5,Y TO X +15,Y 1086 HPLOT X +5,Y -20 TO X +15,Y -20 1088 RETURN 1090 REM J 1092 HPLOT X +4,Y -6 TO X +4,Y -3 TO X +8,Y 1094 HPLOT TO X +16,Y TO X +20,Y -3 1096 HPLOT TO X +20,Y -20 1098 RETURN 1100 REM K 1102 HPLOT X,Y TO X,Y -20 1103 HPLOT X,Y -5 TO X +20,Y -20 1105 HPLOT X +20,Y TO X +8,Y -10 1108 RETURN 1110 REM L 1112 HPLOT X,Y TO X,Y -20 1114 HPLOT X,Y TO X +20,Y 1118 RETURN 1120 REM M 1122 HPLOT X,Y TO X,Y -20 TO X +10,Y -5 1124 HPLOT TO X +20,Y -20 TO X +20,Y 1128 RETURN 1130 REM N 1132 HPLOT X,Y TO X,Y -20 TO X +20,Y TO X +20,Y -20 1138 RETURN 1140 REM O 1142 HPLOT X +20,Y -3 TO X +16,Y TO X +4,Y 1144 HPLOT TO X,Y -3 TO X,Y -17 TO X +4,Y -20 1145 HPLOT TO X +16,Y -20 TO X +20,Y -17 TO X +20,Y -3 1148 RETURN 1150 REM Q 1152 HPLOT X +20,Y -3 TO X +16,Y TO X +4,Y 1154 HPLOT TO X,Y -3 TO X,Y -17 TO X +4,Y -20 1155 HPLOT TO X +16,Y -20 TO X +20,Y -17 TO X +20,Y -3 1157 HPLOT X +20,Y TO X +12,Y -6 1158 RETURN 1160 REM P 1162 HPLOT X,Y TO X,Y -20 TO X +18,Y -20 1164 HPLOT TO X +20,Y -17 TO X +20,Y -13 1166 HPLOT TO X +18,Y -10 TO X,Y -10 1168 RETURN 1170 REM R 1172 HPLOT X,Y TO X,Y -20 TO X +18,Y -20 1173 HPLOT TO X +20,Y -17 TO X +20,Y -13 1175 HPLOT TO X +18,Y -10 TO X,Y -10 1176 HPLOT X +20,Y TO X +10,Y -10 1178 RETURN 1180 REM S 1181 HPLOT X,Y -6 TO X,Y -3 TO X +4,Y TO X +16,Y TO X +20,Y -3 1182 HPLOT TO X +20,Y -7 TO X +16,Y -10 1183 HPLOT TO X +4,Y -10 TO X,Y -13 1184 HPLOT TO X,Y -17 TO X +4,Y -20 TO X +16,Y -20 1185 HPLOT TO X +20,Y -17 TO X +20,Y -14 1188 RETURN 1190 REM T 1192 HPLOT X +10,Y TO X +10,Y -20 1194 HPLOT X +2,Y -20 TO X +18,Y -20 1198 RETURN 1200 REM U 1202 HPLOT X,Y -20 TO X,Y -3 TO X +4,Y TO X +16,Y 1204 HPLOT TO X +20,Y -3 TO X +20,Y -20 1208 RETURN 1210 REM V 1212 HPLOT X,Y -20 TO X +10,Y TO X +20,Y -20 1218 RETURN 1220 REM W 1222 HPLOT X,Y -20 TO X +4,Y TO X +10,Y -12 1224 HPLOT TO X +16,Y TO X +20,Y -20 1228 RETURN 1230 REM X 1232 HPLOT X,Y -20 TO X +20,Y 1234 HPLOT X,Y TO X +20,Y -20 1238 RETURN 1240 REM Y 1242 HPLOT X +10,Y TO X +10,Y -10 TO X,Y -20 1244 HPLOT X +10,Y -10 TO X +20,Y -20 1248 RETURN 1250 REM Z 1252 HPLOT X,Y -20 TO X +20,Y -20 TO X,Y TO X +20,Y 1258 RETURN 1300 REM QUES. MARK 1302 HPLOT X,Y -14 TO X,Y -17 1304 HPLOT TO X +4,Y -20 TO X +16,Y -20 1306 HPLOT TO X +20,Y -17 TO X +20,Y -14 1308 HPLOT TO X +16,Y -10 TO X +10,Y -10 1310 HPLOT TO X +10,Y -5 1312 HPLOT X +10,Y TO X +10,Y +1 1315 RETURN 1317 REM ' 1318 HPLOT X +8,Y -12 TO X +14,Y -20: RETURN 1319 REM - 1320 HPLOT X +4,Y -10 TO X +16,Y -10: RETURN 1321 REM . 1322 HPLOT X +6,Y TO X +6,Y -4 TO X +8,Y -4 TO X +8,Y: RETURN 1325 REM MAKE ICE 1326 GOSUB 1600 1328 FOR P = 0 TO 3: HCOLOR= 7: HPLOT 0,120 +P *2 TO 279,120 +P *2: NEXT P: RETURN 1350 REM BREAK ICE-MAN 1352 HCOLOR= 0: FOR P = 0 TO 7: HPLOT 220 +P,120 +P TO 222 +P,120 +P: HPLOT 240 +P,120 +P TO 242 +P,120 +P 1353 HPLOT 260 +P,120 +P TO 262 +P,120 +P: NEXT P 1354 FOR P = 0 TO 7: HPLOT 220,120 +P TO 279,120 +P: NEXT P 1355 X = 240:Y = 118: GOSUB 1705 1362 X = 240:Y = 159: HCOLOR= 2: GOSUB 1705 1365 HCOLOR= 3: FOR P = 0 TO 3 1367 HPLOT 200 +P *2,100 TO 232 +P *2,159 1370 NEXT P: RETURN 1400 REM LITTLE MAN 1405 HPLOT X,Y -8 TO X,Y -18 TO X +2,Y -22 1410 HPLOT TO X +6,Y -26 TO X +10,Y -28 TO X +14,Y -26 TO X +18,Y -22 1412 HPLOT TO X +18,Y -30 TO X +16,Y -30 TO X +16,Y -38 TO X +16,Y -34 1414 HPLOT TO X +20,Y -34 TO X +20,Y -8 TO X +14,Y -8 TO X +14,Y -2 1416 HPLOT TO X +18,Y -2 TO X +18,Y TO X +12,Y TO X +12,Y -8 1418 HPLOT TO X +6,Y -8 TO X +6,Y -2 TO X +10,Y -2 TO X +10,Y 1420 HPLOT TO X +4,Y TO X +4,Y -8 TO X,Y -8 1422 HPLOT X +6,Y -20 TO X +8,Y -20 1424 HPLOT X +12,Y -20 TO X +14,Y -20 1430 RETURN 1500 REM BODY 1505 HPLOT X +18,Y -20 TO X +18,Y -38 TO X +24,Y -38 TO X +24,Y -20 TO X +18,Y -20: RETURN 1509 REM HEAD 1510 HPLOT X +18,Y -38 TO X +14,Y -40 TO X +12,Y -44 TO X +12,Y -46 1515 HPLOT TO X +14,Y -50 TO X +18,Y -52 TO X +24,Y -52 TO X +28,Y -50 1520 HPLOT TO X +30,Y -46 TO X +30,Y -44 TO X +28,Y -40 TO X +24,Y -38: RETURN 1530 REM FACE 1535 HPLOT X +16,Y -48 TO X +18,Y -48: HPLOT X +22,Y -48 TO X +24,Y -48 1540 HPLOT X +20,Y -46 TO X +20,Y -44 TO X +22,Y -44 1545 HPLOT X +16,Y -42 TO X +26,Y -42: RETURN 1550 REM ARM 1 1555 HPLOT X,Y -36 TO X +6,Y -28 TO X +18,Y -34: RETURN 1560 REM ARM 2 1565 HPLOT X +24,Y -34 TO X +36,Y -30 TO X +30,Y -22: RETURN 1570 REM LEG 1 1575 HPLOT X +18,Y -20 TO X +8,Y -12 TO X +8,Y TO X,Y: RETURN 1580 REM LEG 2 1585 HPLOT X +24,Y -20 TO X +24,Y -10 TO X +34,Y TO X +26,Y: RETURN 1600 REM WATER 1605 HCOLOR= 6 1610 FOR P = 1 TO 40 1615 HPLOT 0,119 +P TO 279,119 +P: NEXT P 1620 RETURN 1700 HCOLOR= 2 1702 X = 240:Y = 118 1705 FOR P = 1 TO 7 1710 ON P GOSUB 1500,1510,1530,1550,1560,1570,1580 1720 NEXT P 1730 RETURN 2500 HOME : PRINT : PRINT : TEXT 2502 ONERR GOTO 3000 2505 D$ = CHR$(4):I = 0 2510 PRINT : PRINT "WELCOME TO MYSTERY WORD SPELLING!!" 2520 PRINT : PRINT : PRINT "BEFORE YOU CAN USE THIS PROGRAM" 2525 PRINT "YOU MUST TYPE THE NAME OF THE" 2530 PRINT "SPELLING LIST THAT YOU WANT." 2535 PRINT "FOR NOW USE 'SAMPLE SPELL LIST'" 2540 PRINT : PRINT "DO YOU NEED TO SEE THE DISC CATALOG " 2545 INPUT "NAMES OF SPELLING LISTS (Y OR N)? ";M$ 2550 IF M$ = "Y" THEN 2555 2552 IF M$ = "N" THEN 2580 2554 GOTO 2540 2555 PRINT D$;"CATALOG" 2580 PRINT : PRINT : INPUT "TYPE THE SPELLING LIST NAME ";N$ 2600 REM READ LIST 2610 PRINT D$;"OPEN ";N$ 2620 PRINT D$;"READ ";N$ 2630 INPUT I 2640 FOR Z = 1 TO I 2650 INPUT S$(Z) 2660 NEXT Z 2670 PRINT D$;"CLOSE ";N$ 2680 PRINT D$ 2690 RESTORE 2700 REM SUB MENU OF SPELLING 2705 HOME : TEXT 2710 PRINT : PRINT : PRINT "SELECT A PROGRAM" 2720 PRINT : PRINT "1. SEE ALL WORDS ON LIST ";N$ 2730 PRINT : PRINT "2. START SPELLING WORDS ON LIST ";N$ 2735 PRINT : PRINT "3. GET A NEW LIST OF WORDS." 2737 PRINT : PRINT "4. EXIT THIS PROGRAM." 2740 PRINT : PRINT : INPUT "TYPE NUMBER OF PROGRAM WANTED ?";P2 2745 PRINT : PRINT : PRINT : PRINT 2750 IF P2 = 1 THEN 700 2755 IF P2 = 2 THEN 750 2760 IF P2 = 3 THEN 2500 2770 IF P2 = 4 THEN END 2780 IF P2 >4 THEN 2740 3000 Y = PEEK(222) 3010 IF Y = 5 AND I = 0 THEN 3100 3015 IF Y = 42 THEN 510 3017 IF Y = 77 THEN 510 3018 IF Y = 254 THEN RESUME 3020 IF Y = 53 THEN W1 = 0: GOTO 765 3030 IF Y = 11 THEN PRINT "FILE NOT FOUND": GOTO 2540 3035 IF Y = 255 THEN END 3050 PRINT "UNUSUAL ERROR ",Y 3060 W1 = 0: GOTO 765 3100 PRINT "FILE NAME NOT FOUND." 3110 PRINT D$;"DELETE ";N$ 3120 GOTO 2540